home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / science / sm32a.zip / LIBRARY / COTH.LI < prev    next >
Text File  |  1993-10-16  |  165b  |  7 lines
  1. coth(0) := discont
  2. coth(zero) := inf
  3. coth(-zero) := -inf
  4. coth(inf) := 1
  5. coth(-inf) := -1
  6. coth(x_) := if( isnumber(x) and numeric==on, (e^x+e^-x)/(e^x-e^-x) )
  7.